object FListaDostawcow: TFListaDostawcow
  Left = 0
  Top = 0
  Caption = 'Lista Dostawc'#243'w'
  ClientHeight = 367
  ClientWidth = 500
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Button2: TButton
    Left = 293
    Top = 334
    Width = 75
    Height = 25
    Caption = 'OK'
    Default = True
    TabOrder = 0
    OnClick = Button2Click
  end
  object Button1: TButton
    Left = 390
    Top = 334
    Width = 75
    Height = 25
    Cancel = True
    Caption = 'Anuluj'
    TabOrder = 1
    OnClick = Button1Click
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 465
    Height = 297
    TabOrder = 2
    object DBGridEh1: TDBGridEh
      Left = 16
      Top = 16
      Width = 433
      Height = 241
      DataSource = dsDostawcy
      Flat = False
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Tahoma'
      FooterFont.Style = []
      OddRowColor = clInfoBk
      Options = [dgTitles, dgColumnResize, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      ReadOnly = True
      RowHeight = 20
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Tahoma'
      TitleFont.Style = []
      Columns = <
        item
          EditButtons = <>
          FieldName = 'VENDORID'
          Footers = <>
          Title.Caption = 'ID Dostawcy'
          Width = 94
        end
        item
          EditButtons = <>
          FieldName = 'VENDNAME'
          Footers = <>
          Title.Caption = 'Nazwa'
          Width = 316
        end>
    end
    object edID: TEdit
      Left = 16
      Top = 263
      Width = 129
      Height = 19
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 1
      OnChange = clickFiltr
    end
    object edNazwa: TEdit
      Left = 143
      Top = 263
      Width = 306
      Height = 19
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      OnChange = clickFiltr
    end
  end
  object qDostawcy: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=gogen;Persist Security Info=True;Us' +
      'er ID=sa;Initial Catalog=two;Data Source=inspiron;Use Procedure ' +
      'for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation I' +
      'D=INSPIRON;Use Encryption for Data=False;Tag with column collati' +
      'on when possible=False'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM TW_ListaDostawcow')
    Left = 256
    Top = 48
  end
  object dsDostawcy: TDataSource
    DataSet = qDostawcy
    Left = 328
    Top = 48
  end
end
